﻿<!-- #include file="ding.asp" -->
<!-- #include file="mymin.asp" -->
<%Call Head()

IF KEY<>0 then
	Call Error("<card title=""出错""><p>你的权限不足！")
end if
dim pp,id,idd,lxl
id=request.QueryString("id")
idd= request.QueryString("idd")
lxl= request.QueryString("lxl")
pid= getN("pid", 5)
if id="" then id=0
pp=request.QueryString("pp")
if pp="" then pp=1
%>
<%if pp=0 then%>
<card title="添加新的页面">
<p>输入页面名称:<br/><input name="class1<%=time_r%>" title="名称" emptyok="false"/><br/>
栏目后面:<select name="br<%=time_r%>" value="2"><option value="1">自动换行</option><option value="2">不换行</option></select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=pid%>" format="*N" size="2" emptyok="false"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="0"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="classsave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='0'/>
<postfield name='parent' value='<%=id%>'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor>
<%elseif pp=1 then%>
<card title="添加文章栏目">
<p>文章栏目名称:<br/>
<%

set rs=server.createobject("adodb.recordset")
sql="select classid,class from 74hu_list"
rs.open sql,myconn,1,1
%><input name="class1<%=time_r%>" title="名称" value=""/><br/>
选择类别:
<select name="lid<%=time_r%>">
<%
 do while not rs.eof
%><option value='<%=rs("classid")%>'><%=nowml(rs("class"))%></option><%
 rs.movenext
 loop
 rs.close
 set rs=Nothing
%></select><br/>
栏目后面:<select name="br<%=time_r%>" value="1"><option value="1">自动换行</option><option value="2">不换行</option></select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=pid%>" format="*N" size="2" emptyok="false"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="0"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="classsave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name="lid" value="$(lid<%=time_r%>)"/>
<postfield name='lx' value='1'/>
<postfield name='parent' value='<%=id%>'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor>
<%elseif pp=2 then%>
<card title="添加UBB标签">
<p><a href="ubbcl.asp?sid=<%=sid%>">[UBB说明]</a><br/>
UBB后台标记:<br/><input name="class1<%=time_r%>" title="名称" emptyok="false"/><br/>
UBB内容:<br/><input name="wmltxt<%=time_r%>" title="名称" emptyok="false"/><br/>
栏目后面:<select name="br<%=time_r%>" value="1">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=pid%>" format="*N" size="2" emptyok="false"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="0"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="classsave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="wmltxt" value="$(wmltxt<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='2'/>
<postfield name='parent' value='<%=id%>'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor>
<%elseif pp=7 then%>
<card title="添加调用栏目">
<p>调用栏目名称:<br/><input name="class1<%=time_r%>" title="名称" emptyok="false"/><br/>
选择调用类型<br/><select name="lx<%=time_r%>">
<option value="10">最新文章</option>
<option value="11">最热文章</option>
<option value="12">随机文章</option>
<option value="16">推荐文章</option>
<option value="13">最新帖子</option>
<option value="14">最热帖子</option>
<option value="15">随机帖子</option>
<option value="17">精华帖子</option>
<option value="19">站内搜框</option>
<option value="20">网站群聊</option>
</select><br/>
调用栏目ID(留空则为全部栏目):<br/>
<input name="relid<%=time_r%>" title="栏目ID" format="*M"/><br/>
调用条数:(站内搜框除外)<br/><input name="num<%=time_r%>" title="条数" emptyok="false" format="*N" size="5"/><br/>
栏目后面:<select name="br<%=time_r%>" value="1"><option value="1">自动换行</option><option value="2">不换行</option></select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=pid%>" format="*N" size="2" emptyok="false"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="0"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="classsave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='$(lx<%=time_r%>)'/>
<postfield name="num" value="$(num<%=time_r%>)"/>
<postfield name="wmltxt" value="$(relid<%=time_r%>)"/>
<postfield name="relid" value="0"/>
<postfield name='parent' value='<%=id%>'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor><br/>
调用多个栏目ID请用英文逗号(,)隔开
<%elseif pp=8 then%>
<card title="添加随机广告">
<p>广告标题(用于后台标识):<br/><input name="class1<%=time_r%>" title="名称" emptyok="false"/><br/>
栏目后面:<select name="br<%=time_r%>" value="1"><option value="1">自动换行</option><option value="2">不换行</option></select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=pid%>" format="*N" size="2" emptyok="false"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="0"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="classsave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='8'/>
<postfield name='parent' value='<%=id%>'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor>
<%elseif pp=9 then%>
<card title="添加WML标签">
<p><a href="faq.asp?p=14&amp;sid=<%=sid%>">[WML说明]</a><br/>
WML后台标记:<br/><input name="class1<%=time_r%>" title="名称" emptyok="false"/><br/>
WML标签内容:<br/><input name="wmltxt<%=time_r%>" title="名称" emptyok="false"/><br/>
栏目后面:<select name="br<%=time_r%>" value="1"><option value="1">自动换行</option><option value="2">不换行</option></select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=pid%>" format="*N" size="2" emptyok="false"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="0"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="classsave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="wmltxt" value="$(wmltxt<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='9'/>
<postfield name='parent' value='<%=id%>'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor><br/>
提示:WML链接支持[sid]防断线
<%elseif pp=10 then%>
<card title="添加WML页面">
<p>WML页面后台标记:(无须文件头)<br/><input name="class1<%=time_r%>" title="名称" emptyok="false"/><br/>
WML地址命名:(留空则自动命名)<br/><input name="Wmlname<%=time_r%>" title="名称" emptyok="true"/><br/>
WML页面内容:<br/><input name="wmltxt<%=time_r%>" title="名称" emptyok="false"/><br/>
栏目后面:<select name="br<%=time_r%>" value="1"><option value="1">自动换行</option><option value="2">不换行</option></select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=pid%>" format="*N" size="2" emptyok="false"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="0"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="wmlcl.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="Wmlname" value="$(Wmlname<%=time_r%>)"/>
<postfield name="wmltxt" value="$(wmltxt<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='20'/>
<postfield name='parent' value='<%=id%>'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor>
<br/>提示：从&lt;card&gt;到&lt;/wml&gt;
<%elseif pp=3 then%>
<card title="添加论坛栏目">
<p>论坛栏目名称:<br/>
<%

set rs=server.createobject("adodb.recordset")
sql="select classid,name from 74hu_bbs"
rs.open sql,myconn,1,1
%><input name="class1<%=time_r%>" title="名称" value=""/><br/>
选择类别:
<select name="lid<%=time_r%>">
<%
 do while not rs.eof
%><option value='<%=rs("classid")%>'><%=nowml(rs("name"))%></option><%
 rs.movenext
 loop
 rs.close
 set rs=Nothing
%></select><br/>
栏目后面:<select name="br<%=time_r%>" value="1"><option value="1">自动换行</option><option value="2">不换行</option></select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=pid%>" format="*N" size="2" emptyok="false"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="0"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="classsave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name="lid" value="$(lid<%=time_r%>)"/>
<postfield name='lx' value='3'/>
<postfield name='parent' value='<%=id%>'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor>
<%end if%>
<br/>----------<br/>
<%if id<>0 then %>
<a href="Clist.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lxl=<%=lxl%>">[栏目分类]</a><br/>
<%end if%>
<a href="class.asp?sid=<%=sid%>">[栏目管理]</a>
<%call rootLast%>